home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / text / misc / nroffamiga.lha / tmac.lha / tmac.skeep < prev    next >
Text File  |  1992-05-26  |  1KB  |  82 lines
  1. .\"    @(#)tmac.skeep    1.5    88/02/08
  2. .    \"KS keep - for keep release features. As in IFM
  3. .de ]K
  4. .nr KN \\n(.u
  5. .if \\n(IK=0 .if \\n(IF=0 .KQ
  6. .nr IK +1
  7. ..
  8. .    \"KQ - real keep processor
  9. .de KQ
  10. .br
  11. .nr KI \\n(.i
  12. .ev 2
  13. .br
  14. .in \\n(KIu
  15. .ps \\n(PS
  16. .if \\n(VS>40 .vs \\n(VSu
  17. .if \\n(VS<=39 .vs \\n(VSp
  18. .ll \\n(LLu
  19. .lt \\n(LTu
  20. .if \\n(NX>1 .ll \\n(CWu
  21. .if \\n(NX>1 .lt \\n(CWu
  22. .di KK
  23. .nr TB 0
  24. ..
  25. .    \"KF - floating keep
  26. .de ]J
  27. .nr KN \\n(.u
  28. .if !\\n(IK .FQ
  29. .nr IK +1
  30. ..
  31. .    \"FQ real floating keep processor
  32. .de FQ
  33. .nr KI \\n(.i
  34. .ev 2
  35. .br
  36. .in \\n(KIu
  37. .ps \\n(PS
  38. .if \\n(VS>40 .vs \\n(VSu
  39. .if \\n(VS<=39 .vs \\n(VSp
  40. .ll \\n(LLu
  41. .lt \\n(LTu
  42. .if \\n(NX>1 .ll \\n(CWu
  43. .if \\n(NX>1 .lt \\n(CWu
  44. .di KK
  45. .nr TB 1
  46. ..
  47. .    \"KE release - everything between keep and release is together
  48. .de KE
  49. .if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ
  50. .if \\n(IK .nr IK -1
  51. ..
  52. .    \"RQ real release
  53. .de RQ
  54. .br
  55. .di
  56. .nr NF 0
  57. .if \\n(dn-\\n(.t .nr NF 1
  58. .if \\n(TC .nr NF 1
  59. .if \\n(NF .if !\\n(TB .sp 200
  60. .if !\\n(NF .if \\n(TB .nr TB 0
  61. .nf
  62. .rs
  63. .nr TC 5
  64. .in 0
  65. .ls 1
  66. .if \\n(TB=0 .ev
  67. .if \\n(TB=0 .br
  68. .if \\n(TB=0 .ev 2
  69. .if \\n(TB=0 .KK
  70. .ls
  71. .ce 0
  72. .if \\n(TB=0 .rm KK
  73. .if \\n(TB .da KJ
  74. .if \\n(TB \!.KD \\n(dn
  75. .if \\n(TB .KK
  76. .if \\n(TB .di
  77. .nr TC \\n(TB
  78. .if \\n(KN .fi
  79. .in
  80. .ev
  81. ..
  82.